home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / dbase / videomgt.zip / ADDSALES.PRG < prev    next >
Text File  |  1991-11-23  |  675b  |  30 lines
  1. && ADD RECORDS TO YSALES FILE ===> ADDSALES.PRG
  2. SET TALK OFF
  3. ANS=" "
  4. USE YSALES
  5. DO WHILE .T.
  6.    CLEAR
  7.    APPEND BLANK
  8.    @ 3,22 SAY "ADD RECORD IN YSALES FILE"
  9.    @ 5,15 TO 15,56
  10.    @ 7,22 SAY "CUSTOMER NUMBER "  GET CUST_NO
  11.    @ 9,22 SAY "DATE            "  GET DATE
  12.    @ 11,22 SAY "FILM NUMBER     "  GET FILM_NO
  13.    @ 13,22 SAY "RETURNED        "  GET RETURNED
  14.    @ 24,15 SAY "PLEASE ENTER ALL THE FIELDS OF RECORD ADDED"
  15.    READ
  16.    ANOS=ANOS+1
  17.    CLEAR
  18.    @ 12,10 
  19.    WAIT "                      DO YOU WANT TO CONTINUE(Y/N)? " TO ANS
  20.    IF ANS $"Yy"
  21.       CLEAR
  22.       LOOP
  23.    ELSE
  24.       EXIT
  25.    ENDIF
  26. ENDDO
  27. CLEAR
  28. @10,36 SAY "W A I T"
  29. RETURN
  30.